home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib16.dsk
/
TEST FILE CREATOR.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
281b
|
10 lines
10 HOME : CLEAR :D$ = CHR$(4)
20 NR = 200:A$ = "FAST FILE SEARCH"
30 PRINT D$;"OPEN TEST FILE,L200"
40 PRINT D$;"WRITE TEST FILE,R0"
50 PRINT NR
60 FOR R = 1 TO NR
70 PRINT D$;"WRITE TEST FILE,R";R
80 FOR F = 1 TO 3: PRINT A$;R: NEXT
90 NEXT R
100 PRINT D$;"CLOSE": END